home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / RAMPAGE1.ZIP / aliases.ini next >
INI File  |  1994-12-19  |  5KB  |  146 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/hop /part # | /join #$$1
  11. n9=/send /dcc send $1 $2
  12. n10=/chat /dcc chat $1
  13. n11=/ping /ctcp $$1 ping
  14. n12=/s /sound $$1.wav is playing a wav....... ( $$1.wav )
  15. n13=/u /uwho $$1
  16. n14=/py /play $$1.txt
  17. n15=/onquit {
  18. n16=  .timer750 1 30 /unset %split
  19. n17=  .timer751 1 30 /unset %splitlist
  20. n18=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  21. n19=    set %split2 $token(1,46,$parm2)
  22. n20=    set %split $token(1,46,$parm1)
  23. n21=    if %split !isin %splitlist {
  24. n22=      set %splitlist %splitlist %split
  25. n23=      amsg  4,6░⌐ñNetsplitñ⌐░ ░⌐ñDetectedñ⌐░ :░┐ $+ %split $+ / $+ %split2 $+ ┐░ %ind
  26. n24=    }  
  27. n25=  }
  28. n26=}
  29. n27=/f2 clone
  30. n28=/clone {
  31. n29=  %t = 0
  32. n30=  :start
  33. n31=  inc %t 1
  34. n32=  if $nick(%t,#) == $null goto end
  35. n33=  if $address($nick(%t,#),3) == $null { whois $nick(%t,#) | /set %whois 1 }
  36. n34=  goto start
  37. n35=  :end
  38. n36=  if %whois == $null clone_  | /else timer 1 5 /clone
  39. n37=  unset %t | /unset %whois
  40. n38=}
  41. n39=/clone_ {
  42. n40=  set %u 0 | /set %x 0 | /unset %addlist
  43. n41=  :a
  44. n42=  inc %u 1 | /set %v 0
  45. n43=  if $nick(%u,#) == $null goto out
  46. n44=  :b
  47. n45=  inc %v 1
  48. n46=  if $nick(%v,#) == $null goto a
  49. n47=  if $nick(%u,#) == $nick(%v,#) goto b
  50. n48=  if $address($nick(%u,#),3) == $address($nick(%v,#),3) {
  51. n49=    if $address($nick(%v,#),3) !isin %addlist { set %addlist %addlist $address($nick(%v,#),3) | /inc %x 1 }
  52. n50=  }
  53. n51=  goto b
  54. n52=  :out
  55. n53=  if %x == 1 msg # 15,15?14,14?4,1 $+ There is %x CLONE on # $+ 14,14?15,15? | /else msg # 15,15?14,14?4,1 $+ There are %x CLONES on # $+ 14,14?15,15?
  56. n54=  if %addlist == $null goto end
  57. n55=  set %u 0
  58. n56=  :c
  59. n57=  inc %u 1 | /set %v 0 | /set %w 1 | /unset %clone | /set %add $token(%u,32,%addlist)
  60. n58=  if %add == $null goto end
  61. n59=  :d
  62. n60=  inc %v 1
  63. n61=  if $nick(%v,#) == $null goto c
  64. n62=  if %add == $address($nick(%v,#),3) {
  65. n63=    if %clone == $null set %clone $nick(%v,#) | /else set %clone %clone & $nick(%v,#)
  66. n64=  }
  67. n65=  inc %w 1
  68. n66=  if (($nick(%w,#) == $null) && (%clone != $null)) {
  69. n67=    msg # ü $+ %clone $+ ü
  70. n68=  }
  71. n69=  goto d
  72. n70=  :end
  73. n71=  msg # 4,0-4,15=4,14(4,1«┼mPπGδ v1.04,14)4,15=4,0-
  74. n72=  unset %u | /unset %v | /unset %w | /unset %x | /unset %addlist | /unset %add | /unset %clone
  75. n73=}
  76. n74=/clonelist {
  77. n75=  remini clone.ini ADDRESSES
  78. n76=  set %chan $chan
  79. n77=  set %info $$1
  80. n78=  enable #easyclone  
  81. n79=  unset %numb  
  82. n80=  unset %number@*
  83. n81=  unset %clones@*
  84. n82=  unset %displayed.addies  
  85. n83=  unset %addy  
  86. n84=  animate [(░Ä Checking and Adding Addresses Ä░)]
  87. n85=  who %info
  88. n86=  if (%info == %star) { set %info $chan }
  89. n87=}
  90. n88=/showclones {
  91. n89=  echo 4 [(░Ä Searching for 04Clones in Domain: 12 $+ %info $+  Ä░)]
  92. n90=  set %addy.read 0
  93. n91=  :beginning
  94. n92=  inc %addy.read 
  95. n93=  set %addy $readini clone.ini ADDRESSES address [ $+ [ %addy.read ] ]
  96. n94=  if (%addy == $null) { echo 4 [(░Ä Clone Listing Complete Ä░)] | if %numb == $null set %numb 0 | unset %nick.name | disable #easyclone | echo 4  [(░Ä %numb Groups of Clones found Ä░)] | timer 1 1 echo 4 [(░Ä %ver Ä░)] | halt }
  97. n95=  if (%number@ [ $+ [ %addy ] ] > 1) { inc %numb | goto show }
  98. n96=  goto beginning
  99. n97=  :show
  100. n98=  if %addy isin %displayed.addies goto no
  101. n99=  echo 4  4[(░Ä $+ %numb $+ Ä░)] [(░Ä  $+ %clones@ [ $+ [ %addy ] ] $+ ( $+ %addy $+ ) Ä░)]
  102. n100=  set %displayed.addies %displayed.addies %addy
  103. n101=  goto beginning
  104. n102=  :no
  105. n103=  dec %numb
  106. n104=  goto beginning
  107. n105=}
  108. n106=/ct {
  109. n107=  %c = *1
  110. n108=  set %c $replace(%c,a,4a)
  111. n109=  set %c $replace(%c,b,3B)
  112. n110=  set %c $replace(%c,c,6C) 
  113. n111=  set %c $replace(%c,d,7D) 
  114. n112=  set %c $replace(%c,e,4e) 
  115. n113=  set %c $replace(%c,f,12F) 
  116. n114=  set %c $replace(%c,g,13G) 
  117. n115=  set %c $replace(%c,h,6H) 
  118. n116=  set %c $replace(%c,i,4i) 
  119. n117=  set %c $replace(%c,j,J) 
  120. n118=  set %c $replace(%c,k,3K) 
  121. n119=  set %c $replace(%c,l,L) 
  122. n120=  set %c $replace(%c,m,4M) 
  123. n121=  set %c $replace(%c,n,6N)
  124. n122=  set %c $replace(%c,o,4o) 
  125. n123=  set %c $replace(%c,p,12P) 
  126. n124=  set %c $replace(%c,q,Q) 
  127. n125=  set %c $replace(%c,r,13R) 
  128. n126=  set %c $replace(%c,s,7S) 
  129. n127=  set %c $replace(%c,t,T) 
  130. n128=  set %c $replace(%c,u,4u) 
  131. n129=  set %c $replace(%c,v,V) 
  132. n130=  set %c $replace(%c,w,12W) 
  133. n131=  set %c $replace(%c,x,7X) 
  134. n132=  set %c $replace(%c,y,Y) 
  135. n133=  set %c $replace(%c,z,6z) 
  136. n134=  set %c $replace(%c,?,12┐15?) 
  137. n135=  say %c
  138. n136=  unset %c  
  139. n137=}
  140. n138=/lo {
  141. n139=  /set %ol 0
  142. n140=  /msg # Channel Statistics for :[ $+ # $+ ]
  143. n141=  set %lo on
  144. n142=  /who #
  145. n143=}
  146.